Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d18/gsdb21.arc/DB_XPL10.PAS

Pascal/Delphi Source File | 1991-01-04 | 220b | 16 lines

program DB_Xpl10;
uses
   GS_dBFld;

var
   f : GS_dBFld_Objt;

begin
   if f.Create('testfile') then
   begin
      f.Open;
      while f.FieldAppendScreen(true) do f.Append;
      f.Close;
   end;
end.